﻿Imports Microsoft.Win32

Public Class VLCHelper

    Public Shared Function GetPath()
        Dim VLCKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\VideoLAN\VLC")
        If VLCKey Is Nothing Then
            Throw New Exception("VLC is not installed")
        End If
        Return VLCKey.GetValue("InstallDir") & "\vlc.exe"
    End Function
End Class
